my (@s0,@s1,@s2,@s3);
@tt = (\@s0,\@s1,\@s2,\@s3);

for($i=0;$i<@tt;$i++)
{
    for($j=$i;$j<10;$j++)
    {
        $t = $tt[$i];
        push @{$t},$j;
    }
}

for($i=0;$i<@tt;$i++)
{
    print join(" ",@{$tt[$i]} ),"\n";
}
